home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / a-d / amms / mbbatch / com / zerberus_packer < prev    next >
Encoding:
Text File  |  1995-05-05  |  2.9 KB  |  135 lines
  1. ;    Zerberus-Packer
  2. ;
  3. ;    Scriptfile zum Austausch neuer Nachrichten im Z-Netz-Format
  4. ;    $VER: 1.02 / 16.04.1994
  5. ;
  6. ;       Beschreibung :
  7. ;    Server-Datei fuer das Zerberus-Protokoll. Die gesendeten und
  8. ;    empfangenen Daten werden im Directory MBMSG:POINT/<Portname>/
  9. ;    temporaer gespeichert.
  10. ;    Stehen im Directory MBMSG:POINT/NETCALL/ die Dateien <USERNAME>.LHA
  11. ;    und <USERNAME>.MSGNR, so werden nicht die neusten Nachrichten und
  12. ;    Files aktuell exportiert und gepackt, sondern diese vorgepackten
  13. ;    Daten benutzt.
  14. ;
  15. ;    Das Script sollte so eingebunden werden, dass es ueber Flags
  16. ;    auf die folgende Befehle zugreifen kann !
  17. ;
  18. ;    CONVERT FASTTOZER
  19. ;    ECHO
  20. ;    EXTERN
  21. ;    FASTNET GETFILE
  22. ;    IF
  23. ;    LOGOUT        <-- Option /FAST muss unterstuetzt werden !
  24. ;    ON ERROR
  25. ;    POINT MAKEFILE
  26. ;
  27. ;
  28. ;    Einrichtung eines Netcalls fuer eine Netzbox (Node) :
  29. ;    USERNAME : Name der anrufenden Node
  30. ;    STRASSE  : @NETCALL
  31. ;
  32. ;    Einrichtung eines LocalGates fuer die Einbindung eines anderen
  33. ;    lokalen Netzwerks :
  34. ;    USERNAME : Name der anrufenden Node
  35. ;    VORNAME  : Gatename im Fastnet
  36. ;    STRASSE  : @LOCALGATE
  37. ;
  38. ;    Einrichtung eines Gates fuer die Einbindung eines anderen
  39. ;    globalen Netzwerks :
  40. ;    USERNAME : Name der anrufenden Node
  41. ;    VORNAME  : Gatename im Fastnet
  42. ;    NACHNAME : Gatename im Zerberus-Netz
  43. ;    STRASSE  : @GATE
  44. ;
  45. ;    Konstanten :
  46. ;
  47. TMPDIR  = "mbmsg:point/'{port}'/"        ; Dir fuer Tmp-Files
  48. NETDIR  = "mbmsg:point/netcall/"        ; NET-Directory
  49. MAXKBYT = 2000                    ; Max. Filelaenge in KByte
  50. MSGFILE = "PUFFER"                ; Name des Msg-Files
  51. COPYFILE= "'{NAME}'.lha"            ; Vorgabefile (Pack-Event)
  52. COPYNR  = "'{NAME}'.msgnr"            ; File fuer Msg-Nummern
  53. PACKER  = "lha -P-1 m ""'NETDIR''COPYFILE'"" ""'TMPDIR''MSGFILE'"""
  54.                         ; Packen
  55.  
  56. ;
  57. ;    Bei Fehler verzweigen
  58. ;
  59.  
  60. _on error POINT_ERROR
  61.  
  62. ;
  63. ;    Pruefe auf normalen Netcall
  64. ;
  65.  
  66. _if {STREET} != "@NETCALL" then _goto LOCALGATE
  67. OP_MAKE="/NETCALL"                ; Setze Optionen
  68. OP_CVT=""
  69. _goto START
  70.  
  71. ;
  72. ;    Pruefe auf LocalGate
  73. ;
  74. LOCALGATE:
  75. _if {STREET} != "@LOCALGATE" then _goto GATE
  76. OP_MAKE="/NETCALL"                ; Setze Optionen
  77. OP_CVT="/LOCALGATE"
  78. _goto START
  79.  
  80. ;
  81. ;    Pruefe auf Gate
  82. ;
  83. GATE:
  84. _if {STREET} != "@GATE" then _goto USERPOINT
  85. OP_MAKE="/NETCALL/GATE"                ; Setze Optionen
  86. OP_CVT="/GATE"
  87. _goto START
  88.  
  89. ;
  90. ;    User-Point
  91. ;
  92. USERPOINT:
  93. OP_MAKE=""                    ; Setze Optionen
  94. OP_CVT=""
  95.  
  96. ;
  97. ;    Loesche alte Files / Rename, wenn File immer noch geoeffnet
  98. ;
  99. START:
  100. _if TMPDIR != "" then _extern/q delete "'TMPDIR'#?" ; Disk aufraeumen
  101.  
  102. ;
  103. ;    Alte gepackte Nachrichten loeschen
  104. ;
  105.  
  106. _extern/q delete "'NETDIR''COPYFILE'" "'NETDIR''COPYNR'"
  107.  
  108. ;
  109. ;    Wenn Netcall, dann PMs exportieren.
  110. ;
  111. EXPORT:
  112. _if OP_MAKE == "" then _goto POINT_MAKE        ; Netcall ? Nein -> Msgs sam.
  113. _convert FastToZer'OP_CVT' "'TMPDIR''MSGFILE'"    ; PM-File erstellen
  114.  
  115. ;
  116. ;    Messages exportieren (PMs bei Usercall auch)
  117. ;
  118. POINT_MAKE:
  119. _on error/ignore
  120. _point makefile'OP_MAKE' "'TMPDIR''MSGFILE'" 'MAXKBYT' "'NETDIR''COPYNR'"
  121. _on error POINT_ERROR
  122.  
  123. ;
  124. ;    Messages packen
  125. ;
  126.  
  127. _extern/q 'PACKER'
  128.  
  129. ;
  130. ;    Ende
  131. ;
  132.  
  133. POINT_ERROR:                    ; Fehler / Ende
  134. _logout/f                    ; Logout
  135.